home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS225B.dsk / INITIALIZE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  3KB  |  76 lines
  1. 0  REM  PROGRAM NAME IS 'INITIALIZE'
  2. 50  POKE 768,32: POKE 769,106: POKE 770,253: POKE 771,134: POKE 772,0: POKE 773,96: REM  CALL GETLN SUBROUTINE
  3. 55 A$ = ""
  4. 60 D$ =  CHR$(13) + CHR$(4)
  5. 200  TEXT 
  6. 210  PRINT D$;"NOMON I,O,C"
  7. 220  HOME : VTAB 5: HTAB 5: INVERSE : PRINT "                               "
  8. 230  HTAB 5: PRINT "  INITIALIZE CLASS DATA FILES  "
  9. 240  HTAB 5: PRINT "                               ": NORMAL 
  10. 250  PRINT : PRINT 
  11. 260  HTAB 15: PRINT "WARNING!!!"
  12. 270  PRINT : PRINT "YOU ARE ABOUT TO DESTROY ANY OLD DATA"
  13. 280  PRINT "THAT IS PRESENTLY ON THIS DISK."
  14. 290  PRINT : PRINT "Type 'Y' if you really want to do this:  ";: POKE  -16368,0: GET A$: IF A$ < >"Y"  THEN  PRINT : PRINT : PRINT "CANCEL INITIALIZATION."
  15. 291  IF A$ = "Y"  THEN  GOTO 300
  16. 295  PRINT "RETURN TO GRADEBOOK.": FOR I = 1 TO 2288: NEXT : PRINT  CHR$(4)"RUN GRADEBOOK"
  17. 300  PRINT : PRINT 
  18. 310  HTAB 3: PRINT "WHAT IS THE NEW CLASS NAME? "
  19. 320  PRINT 
  20. 330  GOSUB 2000:CLASS$ = A$
  21. 331  HOME : VTAB 14
  22. 332  PRINT : PRINT : FLASH : PRINT "PUT DISK TO BE INITIALIZED IN DRIVE 1!": NORMAL 
  23. 336  PRINT : PRINT "PRESS RETURN TO BEGIN INITIALIZING  ";
  24. 338  INPUT C$
  25. 340  PRINT D$;"OPEN CLASSNAME$"
  26. 342  PRINT D$;"WRITE CLASSNAME$"
  27. 344  PRINT CLASS$
  28. 346  PRINT D$;"CLOSE CLASSNAME$"
  29. 348  PRINT D$;"OPEN ASNAME$,L30"
  30. 350  FOR I = 1 TO 50
  31. 352  PRINT D$;"WRITE ASNAME$,R";I
  32. 353  PRINT " "
  33. 354  NEXT I
  34. 356  PRINT D$;"CLOSE ASNAME$"
  35. 358  PRINT D$;"OPEN L%,L4"
  36. 360  FOR I = 1 TO 2
  37. 362  PRINT D$;"WRITE L%,R";I
  38. 364  PRINT 0
  39. 366  NEXT I
  40. 368  PRINT D$;"CLOSE L%"
  41. 370  PRINT D$;"OPEN ASWT%,L6"
  42. 372  FOR I = 1 TO 50
  43. 374  PRINT D$;"WRITE ASWT%,R";I
  44. 376  PRINT 0
  45. 378  NEXT I
  46. 380  PRINT D$;"CLOSE ASWT%"
  47. 382  PRINT D$;"OPEN NAME$,L30"
  48. 384  FOR I = 1 TO 60
  49. 386  PRINT D$;"WRITE NAME$,R";I
  50. 388  PRINT " "
  51. 390  NEXT I
  52. 400  PRINT D$;"CLOSE NAME$"
  53. 410  ONERR  GOTO 500
  54. 412  FOR I = 1 TO 10
  55. 414  PRINT D$;"OPEN G%";I;",L6"
  56. 416  FOR N = 1 TO 60
  57. 418  PRINT D$;"WRITE G%";I;",R";N
  58. 420  PRINT 0
  59. 422  NEXT N
  60. 424  PRINT D$;"CLOSE"
  61. 426  NEXT I
  62. 428  FOR I = 11 TO 50: PRINT D$;"DELETE G%;I
  63. 430  NEXT 
  64. 500  REM 
  65. 510  PRINT D$;"CLOSE"
  66. 515  HOME : VTAB 10: PRINT "INITILIZATION PROCESS IS COMPLETE."
  67. 517  PRINT : PRINT "DO YOU WANT TO DO ANOTHER DISK? (Y/N)  "
  68. 518  GET A$: IF A$ = "Y"  THEN  GOTO 0
  69. 519  GOTO 550
  70. 520  ONERR  PRINT  CHR$(4)"RUN GRADEBOOK"
  71. 550  PRINT D$;"RUN GRADEBOOK"
  72. 2000  POKE 51,128 + ASC(" "): REM  PROMPT CHARACTER
  73. 2002  CALL 768
  74. 2004  POKE 51,128 + ASC("]"): REM  BACK TO STANDARD PROMPT
  75. 2010 A$ = "": IF  PEEK(0) >0  THEN  FOR L9 = 1 TO  PEEK(0):A$ = A$ + CHR$( PEEK(511 +L9) -128): NEXT 
  76. 2020  RETURN